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Probiem 

The below nodule can be used to recover lost data or to re-sort data vrfiich 
is out of order. This is usually caused by system failure or cttaormal exit 
from the Mailing List program. 


Solution 

1. Enter the following program in BASIC. 

4999 'RECOVERY 

5000 CI£:TN=1:F=0 

5010 PRINrrAB(20)"** FIUE RECOVERY **" 

5020 PORD=0TDCP;V(Q,0)=0;V(Q,1)=0:NEXT 

5030 PRINr@320,"** RECORD NUMBER :"'IN 

5040 J=TO:GOSUB1840:GOSOB1900:GOSUB1910 

5050 IFE1$XHR$(31)ANDE0$<CHR$(128)'IHEN5070 

5060 F=F+1;V(TN,0)=-TO:V(TN, 1)=-TN;GOTO5080 

5070 PE=0: QOSUB3240: QOSUB5100: PE=1: QOSUB3240: QOSUB5100 

5080 TN=TOI+1:TFTN<CPANDJR<=IDF(DN)'IHEW5030ELSEN=TN-F-1 

5090 aOSUBl790: CLOSE:Q0SUB1740: J=1 :QOSUB1840:QOTO210 

5100 PORY=TN+lTOPrSIEP-l;V(Y,PE)=V(Y-l,PE) :NEXT 

5110 V(Pr,PE)=TN:RETORN 

2. SAVE the module by typing SAVE "REOOVER/ASC",A 

3. Type: IiOAD"MLS" and press ENTER 

4. Type: MERGE"RBOOVER/ASC" and press ENTER 

5. Type: RUN and press ENTER 
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